home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_81_Print.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  3.6 KB  |  99 lines
  1. on mouseUp
  2.   global gPropFont, gtemp
  3.   set doc to new(xtra("PrintOMatic"))
  4.   if not objectp(doc) then
  5.     alert("There is no currently selected printer. Printing features are disabled.")
  6.   else
  7.     cursor(4)
  8.     setDocumentName(doc, "Colson CD Rom Catalog")
  9.     setMargins(doc, rect(72, 30, 72, 48))
  10.     set w to getPageWidth(doc)
  11.     set h to getPageHeight(doc)
  12.     setPageNumSymbol(doc, "├₧")
  13.     setTextFont(doc, gPropFont)
  14.     setTextSize(doc, 10)
  15.     setTextStyle(doc, "normal,italic")
  16.     setTextJust(doc, "left")
  17.     setTextStyle(doc, "normal,italic,bold")
  18.     setTextSize(doc, 14)
  19.     drawText(doc, "Colson CD-ROM Catalog -- Dimensions", point(0, 47))
  20.     setTextSize(doc, 10)
  21.     setTextStyle(doc, "normal,italic,bold")
  22.     setTextJust(doc, "right")
  23.     drawText(doc, "printed" && the date, point(w, 47))
  24.     setTextStyle(doc, "normal")
  25.     drawLine(doc, point(0, 50), point(w, 50))
  26.     drawText(doc, "Copyright 1998, Colson Caster Corporation, 800-643-5515, Fax: 800 356-6708", point(w - 70, h - 2))
  27.     setTextJust(doc, "left")
  28.     drawPicture(doc, member field "maincastdimphoto", point(0, 260))
  29.     newPage(doc)
  30.     setTextFont(doc, gPropFont)
  31.     setTextSize(doc, 10)
  32.     setTextStyle(doc, "normal")
  33.     newFrame(doc, rect(0, 55, 460, h - 40), 0)
  34.     setTextFont(doc, gPropFont)
  35.     setTextSize(doc, 12)
  36.     setTextStyle(doc, "normal,bold")
  37.     append(doc, "Specifications" & RETURN, 1)
  38.     setTextSize(doc, 10)
  39.     setTextStyle(doc, "normal,bold")
  40.     append(doc, "Caster Type: ", 1)
  41.     setTextStyle(doc, "normal")
  42.     append(doc, field "Tblcaste,DESCRIP" & RETURN, 1)
  43.     setTextStyle(doc, "normal,bold")
  44.     append(doc, "Model Number: ", 1)
  45.     setTextStyle(doc, "normal")
  46.     append(doc, field "Tblcaste,CA_MOD" & RETURN, 1)
  47.     setTextStyle(doc, "normal,bold")
  48.     append(doc, "Mounting: ", 1)
  49.     setTextStyle(doc, "normal")
  50.     append(doc, field "mainmounting" & RETURN, 1)
  51.     setTextStyle(doc, "normal,bold")
  52.     append(doc, "Wheel Diameter: ", 1)
  53.     setTextStyle(doc, "normal")
  54.     append(doc, field "Tblcaste,DIAMETER" & RETURN, 1)
  55.     setTextStyle(doc, "normal,bold")
  56.     append(doc, "Tread Width: ", 1)
  57.     setTextStyle(doc, "normal")
  58.     append(doc, field "Tblcaste,TR_WD" & RETURN, 1)
  59.     setTextStyle(doc, "normal,bold")
  60.     append(doc, "Capacity per Caster: ", 1)
  61.     setTextStyle(doc, "normal")
  62.     append(doc, field "Tblcaste,CAPACITY" & RETURN, 1)
  63.     setTextStyle(doc, "normal,bold")
  64.     append(doc, "Wheel Type: ", 1)
  65.     setTextStyle(doc, "normal")
  66.     append(doc, field "Tblcaste,WHEELDES" & RETURN, 1)
  67.     setTextStyle(doc, "normal,bold")
  68.     append(doc, "Bearing: ", 1)
  69.     setTextStyle(doc, "normal")
  70.     append(doc, field "Tblcaste,BEARING" & RETURN, 1)
  71.     setTextStyle(doc, "normal,bold")
  72.     append(doc, "Load Height: ", 1)
  73.     setTextStyle(doc, "normal")
  74.     append(doc, field "Tblcaste,LD_HT" & RETURN, 1)
  75.     setTextStyle(doc, "normal,bold")
  76.     append(doc, "Swivel Radius: ", 1)
  77.     setTextStyle(doc, "normal")
  78.     append(doc, field "Tblcaste,SWI_RAD" & RETURN, 1)
  79.     setTextStyle(doc, "normal,bold")
  80.     append(doc, "Fork Leg Spacing: ", 1)
  81.     setTextStyle(doc, "normal")
  82.     append(doc, field "Tblcaste,FORK_SPAC" & RETURN, 1)
  83.     setTextStyle(doc, "normal,bold")
  84.     append(doc, "Approximate Weight: ", 1)
  85.     setTextStyle(doc, "normal")
  86.     append(doc, field "Tblcaste,WT" & RETURN, 1)
  87.     setTextStyle(doc, "normal,bold")
  88.     append(doc, "Options: ", 1)
  89.     setTextStyle(doc, "normal")
  90.     append(doc, field "mainop" & RETURN & RETURN, 1)
  91.     setTextSize(doc, 10)
  92.     setTextStyle(doc, "normal")
  93.     if doJobSetup(doc) then
  94.       print(doc)
  95.     end if
  96.     cursor(-1)
  97.   end if
  98. end
  99.